-- card: 17573 from stack: in -- bmap block id: 17992 -- flags: 0000 -- background id: 11983 -- name: Name Cards ----- HyperTalk script ----- on openCard set the cursor to 4 AddStyleName AddStyleTitle if charToNum of cd fld Name < 33 then put "Name" into cd fld Name end if if charToNum of cd fld Title < 33 then put "Title" into cd fld Title end if end openCard on AddStyleName set the cursor to 4 global FontName,FontTitle put the short name of cd btn id 17 into FontTempName put the short name of cd btn id 21 into FontTempTitle put the short name of cd btn id 22 into StyleName put the short name of cd btn id 23 into StyleTitle if FontTempName = "Helvetica" then set the textfont of cd fld Name to Helvetica if Stylename = "Plain" then put "Helvetica" into FontName set the textstyle of cd field Name to "Plain" else if StyleName = "Bold" then put "Helvetica-Bold" into FontName set the textstyle of cd field Name to "Bold" else if StyleName = "Italic" then put "Helvetica-Oblique" into FontName set the textstyle of cd field Name to "Italic" else if StyleName = "Bold & Italic" then put "Helvetica-BoldOblique" into FontName set the textstyle of cd field Name to Bold,Italic else exit to HyperCard end if end if end if end if end if if FontTempName = "Helvetica Narrow" then set the textfont of cd fld Name to "N Helvetica Narrow" if Stylename = "Plain" then put "Helvetica-Narrow" into FontName set the textstyle of cd fld Name to Plain else if StyleName = "Bold" then put "Helvetica-Narrow-Bold" into FontName set the textstyle of cd fld Name to Bold else if StyleName = "Italic" then put "Helvetica-Narrow-Oblique" into FontName set the textstyle of cd fld Name to Italic else if StyleName = "Bold & Italic" then Answer"That combination is not available." set the name of cd btn id 22 to "Plain" set the textstyle of cd fld Name to "Plain" else exit to HyperCard end if end if end if end if end if if FontTempName = "Palatino" then set the textfont of cd fld Name to Palatino if Stylename = "Plain" then put "Palatino" into FontName set the textstyle of cd fld Name to Plain else if StyleName = "Bold" then put "Palatino-Bold" into FontName set the textstyle of cd fld Name to Bold else if StyleName = "Italic" then put "Palatino-Italic" into FontName set the textstyle of cd fld Name to Italic else if StyleName = "Bold & Italic" then put "Palatino-BoldItalic" into FontName set the textstyle of cd fld Name to Bold,Italic end if end if end if end if end if if FontTempName = "Times" then set the textfont of cd fld Name to "Times" if Stylename = "Plain" then put "Times" into FontName set the textstyle of cd fld Name to Plain else if StyleName = "Bold" then put "Times-Bold" into FontName set the textstyle of cd fld Name to Bold else if StyleName = "Italic" then put "Times-Italic" into FontName set the textstyle of cd fld Name to Italic else if StyleName = "Bold & Italic" then put "Times-BoldItalic" into FontName set the textstyle of cd fld Name to Bold,Italic end if end if end if end if end if if FontTempName = "Zapf Chancery" then if StyleName ≠ "Italic" then Answer "That combination is not available." set the name of cd btn id 22 to "Italic" end if set the textfont of cd fld Name to "Zapf Chancery" put "ZapfChancery-MediumItalic" into Fontname end if end AddStyleName on AddStyleTitle set the cursor to 4 global FontTitle put the short name of cd btn id 17 into FontTempName put the short name of cd btn id 21 into FontTempTitle put the short name of cd btn id 22 into StyleName put the short name of cd btn id 23 into StyleTitle if FontTempTitle = "Helvetica" then set the textfont of cd fld Title to Helvetica if StyleTitle = "Plain" then put "Helvetica" into FontTitle set the textstyle of cd field Title to "Plain" else if StyleTitle = "Bold" then put "Helvetica-Bold" into FontTitle set the textstyle of cd field Title to "Bold" else if StyleTitle = "Italic" then put "Helvetica-Oblique" into FontTitle set the textstyle of cd field Title to "Italic" else if StyleTitle = "Bold & Italic" then put "Helvetica-BoldOblique" into FontTitle set the textstyle of cd field Title to Bold,Italic else exit to HyperCard end if end if end if end if end if if FontTempTitle = "Helvetica Narrow" then set the textfont of cd fld Title to "N Helvetica Narrow" if StyleTitle = "Plain" then put "Helvetica-Narrow" into FontTitle set the textstyle of cd fld Title to Plain else if StyleTitle = "Bold" then put "Helvetica-Narrow-Bold" into FontTitle set the textstyle of cd fld Title to Bold else if StyleTitle = "Italic" then put "Helvetica-Narrow-Oblique" into FontTitle set the textstyle of cd fld Title to Italic else if StyleTitle = "Bold & Italic" then Answer"That combination is not available." set the name of cd btn id 23 to "Plain" set the textstyle of cd fld Title to "Plain" else exit to HyperCard end if end if end if end if end if if FontTempTitle = "Palatino" then set the textfont of cd fld Title to Palatino if StyleTitle = "Plain" then put "Palatino" into FontTitle set the textstyle of cd fld Title to Plain else if StyleTitle = "Bold" then put "Palatino-Bold" into FontTitle set the textstyle of cd fld Title to Bold else if StyleTitle = "Italic" then put "Palatino-Italic" into FontTitle set the textstyle of cd fld Title to Italic else if StyleTitle = "Bold & Italic" then put "Palatino-BoldItalic" into FontTitle set the textstyle of cd fld Title to Bold,Italic end if end if end if end if end if if FontTempTitle = "Times" then set the textfont of cd fld Title to "Times" if StyleTitle = "Plain" then put "Times" into FontTitle set the textstyle of cd fld Title to Plain else if StyleTitle = "Bold" then put "Times-Bold" into FontTitle set the textstyle of cd fld Title to Bold else if StyleTitle = "Italic" then put "Times-Italic" into FontTitle set the textstyle of cd fld Title to Italic else if StyleTitle = "Bold & Italic" then put "Times-BoldItalic" into FontTitle set the textstyle of cd fld Title to Bold,Italic end if end if end if end if end if if FontTempTitle = "Zapf Chancery" then if StyleTitle ≠ "Italic" then Answer "That combination is not available." set the name of cd btn id 23 to "Italic" end if set the textfont of cd fld Title to "Zapf Chancery" put "ZapfChancery-MediumItalic" into FontTitle end if end AddStyleTitle -- part 1 (field) -- low flags: 00 -- high flags: 4000 -- rect: left=90 top=114 right=155 bottom=407 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 20 -- text size: 24 -- style flags: 256 -- line height: 32 -- part name: Name -- part 3 (field) -- low flags: 00 -- high flags: 4000 -- rect: left=89 top=158 right=191 bottom=406 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 18 -- text size: 24 -- style flags: 512 -- line height: 32 -- part name: Title -- part 17 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=39 top=246 right=265 bottom=128 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Times ----- HyperTalk script ----- on mouseDown play "Click" select text of cd fld Name Get TKpopMenu(Font) if it = "" then exit mouseDown put item 1 of it into theMenu put item 2 of it into theItem if theItem= "Helvetica" then set the name of cd button id 17 to "Helvetica" AddStyleName else if theItem = "Helvetica Narrow" then set the name of cd button id 17 to "Helvetica Narrow" AddStyleName else if theItem= "Palatino" then set the name of cd button id 17 to "Palatino" AddStyleName else if theItem= "Times" then set the name of cd button id 17 to "Times" AddStyleName else if theItem= "Zapf Chancery" then set the name of cd button id 17 to "Zapf Chancery" AddStyleName end if end if end if end if end if end mouseDown on mouseUp click at 600,600 --unhighlights field if no choice was made end mouseUp -- part 21 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=271 top=247 right=266 bottom=360 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Zapf Chancery ----- HyperTalk script ----- on mouseDown play "Click" select text of cd fld Title Get TKpopMenu(Font) if it = "" then exit mouseDown put item 1 of it into theMenu put item 2 of it into theItem if theItem= "Helvetica" then set the name of cd button id 21 to "Helvetica" AddStyleTitle else if theItem = "Helvetica Narrow" then set the name of cd button id 21 to "Helvetica Narrow" AddStyleTitle else if theItem= "Palatino" then set the name of cd button id 21 to "Palatino" AddStyleTitle else if theItem= "Times" then set the name of cd button id 21 to "Times" AddStyleTitle else if theItem= "Zapf Chancery" then set the name of cd button id 21 to "Zapf Chancery" AddStyleTitle end if end if end if end if end if end mouseDown on mouseUp click at 600,600 --unhighlights field if no choice was made end mouseUp -- part 22 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=134 top=246 right=265 bottom=223 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Bold ----- HyperTalk script ----- on mouseDown Global Fontname play "Click" select text of cd fld Name Get TKpopMenu(Style) if it = "" then exit mouseDown put item 1 of it into theMenu put item 2 of it into theItem if theItem= "Bold" then set the name of cd button id 22 to "Bold" AddStyleName else if theItem = "Plain" then set the name of cd button id 22 to "Plain" AddStyleName else if theItem= "Italic" then set the name of cd button id 22 to "Italic" AddStyleName else if theItem= "Bold & Italic" then set the name of cd button id 22 to "Bold & Italic" AddStyleName else end if end if end if end if end mouseDown on mouseUp click at 600,600 --unhighlights field if no choice was made end mouseUp -- part 23 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=366 top=247 right=266 bottom=455 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Italic ----- HyperTalk script ----- on mouseDown Global FontTitle play "Click" select text of cd fld Title Get TKpopMenu(Style) if it = "" then exit mouseDown put item 1 of it into theMenu put item 2 of it into theItem if theItem= "Bold" then set the name of cd button id 23 to "Bold" AddStyleTitle else if theItem = "Plain" then set the name of cd button id 23 to "Plain" AddStyleTitle else if theItem= "Italic" then set the name of cd button id 23 to "Italic" AddStyleTitle else if theItem= "Bold & Italic" then set the name of cd button id 23 to "Bold & Italic" AddStyleTitle else end if end if end if end if end mouseDown on mouseUp click at 600,600 --unhighlights field if no choice was made end mouseUp -- part contents for background part 4 ----- text ----- Name Cards -- part contents for card part 1 ----- text ----- Name -- part contents for card part 3 ----- text ----- Title